structure tigertemp :> tigertemp =
struct

type label = string
type temp = string

fun temp2string t = t
fun string2temp s = s

fun namedlabel s = s

val actlabel = ref 0
val acttemp  = ref 0

fun incRef (r : int ref) = r := !r+1

fun newtemp() =
	let val t = !acttemp
	in incRef acttemp; "T" ^ Int.toString t end

fun newlabel() =
	let val l = !actlabel
	in incRef actlabel; "L" ^ Int.toString l end

fun makeString s = s
(*
fun makeString s =
	let val largo = Int.toString (size(s)+1)
	in "\n\t.long" ^ largo ^ "\"" ^ s ^ "\n" end 
*)

end
